home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / exec / funcpath.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  570 b   |  27 lines
  1. /*
  2. \funcref{fun\_c\_path}{void fun\_c\_path ()}
  3.     {}
  4.     {}
  5.     {change\_path(), newvar()}
  6.     {fun\_c\_base(), fun\_c\_ext()}
  7.     {funcpath.c}
  8.     {
  9.  
  10.         The last pushed string is taken as a file name. The pathname is
  11.         converted to the one but last pushed string. A new {\em e\_str}
  12.         variable is created holding the new string and is returned via {\em
  13.         reg}.
  14.  
  15.     }
  16. */
  17.  
  18. #include "icm-exec.h"
  19.  
  20. void fun_c_path ()
  21. {
  22.     reg = newvar (e_str);
  23.  
  24.     reg.vu.i->ls.str =
  25.         change_path (stack [sp].vu.i->ls.str, stack [sp - 1].vu.i->ls.str);
  26. }
  27.